home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / web / fweb / fweb-1.40 / manual / f_to_web.src < prev    next >
Text File  |  1993-10-29  |  686b  |  41 lines
  1. C --- SIMPLE DEMO FORTRAN SOURCE PROGRAM ---
  2. C (SEE f_to_web.web FOR ITS web TRANSLATION)
  3.  
  4.     program main
  5.         integer i
  6.         real x
  7.         common/test/ x,i
  8.  
  9. C Initialize values.
  10.         x = -3.14159e-11
  11.         i = 1
  12.  
  13. C Print results.
  14.         call see
  15.         end
  16.  
  17.         subroutine see
  18.         integer i
  19.         real x
  20.         common/test x,i
  21.  
  22.         write(6,100) x,i
  23. 100     format('x = ',1pe10.2,', i = ',i2)
  24.         return
  25.         end
  26.  
  27.         integer function f(a,b,n)
  28.         integer n
  29.         real a(0:n-1),b(0:n-1)
  30.  
  31.         integer k
  32.  
  33.         do 10 k=0,n-1
  34.                 a(k) = k
  35.                 b(k) = k**2
  36. 10      continue
  37.  
  38.         f = n
  39.         return
  40.         end
  41.